home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Use_of_DWM2084049202007.psc / dwm glas / Module1.bas < prev    next >
BASIC Source File  |  2007-09-20  |  21KB  |  501 lines
  1. Attribute VB_Name = "Mod_Declare"
  2. Option Explicit
  3.  
  4. ' DWM API Declarations ##################################
  5. '#################################################
  6.  
  7. Public Type TRect
  8.     M_Left      As Long
  9.     M_Right     As Long
  10.     M_Top       As Long
  11.     M_Buttom    As Long
  12. End Type
  13.  
  14. Public Type DWM_BlurBehind
  15.         dwFlags As Long
  16.         fEnable As Boolean
  17.         RGNBlur As Long
  18.         tMAX As Boolean
  19. End Type
  20.  
  21. Public Type RECT
  22.     Left                As Long
  23.     Top                 As Long
  24.     Right               As Long
  25.     Bottom              As Long
  26. End Type
  27.  
  28. Public Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" (ByVal hWnd As Long, TheRect As TRect) As Long
  29. Public Declare Function DwmEnableBlurBehindWindow Lib "dwmapi.dll" (ByVal hWnd As Long, BB As DWM_BlurBehind) As Long
  30.  
  31. Public Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
  32. Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
  33.  
  34. ' GDI+ API Declarations ############################################
  35. '###########################################################
  36.  
  37. Public Type GUID
  38.    Data1    As Long
  39.    Data2    As Integer
  40.    Data3    As Integer
  41.    Data4(7) As Byte
  42. End Type
  43.  
  44. Public Type PICTDESC
  45.    size     As Long
  46.    Type     As Long
  47.    hBmp     As Long
  48.    hPal     As Long
  49.    Reserved As Long
  50. End Type
  51.  
  52. Public Type GdiplusStartupInput
  53.     GdiplusVersion           As Long
  54.     DebugEventCallback       As Long
  55.     SuppressBackgroundThread As Long
  56.     SuppressExternalCodecs   As Long
  57. End Type
  58.  
  59. Public Type PWMFRect16
  60.     Left   As Integer
  61.     Top    As Integer
  62.     Right  As Integer
  63.     Bottom As Integer
  64. End Type
  65.  
  66. Public Type wmfPlaceableFileHeader
  67.     Key         As Long
  68.     hMf         As Integer
  69.     BoundingBox As PWMFRect16
  70.     Inch        As Integer
  71.     Reserved    As Long
  72.     CheckSum    As Integer
  73. End Type
  74.  
  75. Public Type PAINTSTRUCT
  76.         hDC As Long
  77.         fErase As Boolean
  78.         rcArea As RECT
  79.         fRestore As Boolean
  80.         fIncUpdate As Boolean
  81.         rgbReserve(32) As Byte
  82. End Type
  83.  
  84. Public Type FA_Type_ARGB
  85.         Alpha As Single
  86.         Red As Single
  87.         Green As Single
  88.         Blue As Single
  89. End Type
  90.  
  91. Public Declare Function UpdateWindow Lib "user32" (ByVal hWnd As Long) As Long
  92. Public Declare Function BeginPaint Lib "user32" (ByVal hWnd As Long, LPPaintStruct As PAINTSTRUCT) As Long
  93. Public Declare Function EndPaint Lib "user32" (ByVal hWnd As Long, LPPaintStruct As PAINTSTRUCT) As Long
  94. Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long
  95. Public Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PICTDESC, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
  96. Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
  97. Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
  98. Public Declare Function PatBlt Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long
  99. Public Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
  100. Public Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long
  101. Public Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
  102. Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  103. Public Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long
  104. Public Declare Function RestoreDC Lib "gdi32" (ByVal hDC As Long, ByVal DCState As Integer) As Long
  105.  
  106. Public Declare Function GdipLoadImageFromFile Lib "gdiplus.dll" (ByVal FileName As Long, GpImage As Long) As Long
  107. Public Declare Function GdiplusStartup Lib "gdiplus.dll" (Token As Long, gdipInput As GdiplusStartupInput, GdiplusStartupOutput As Long) As Long
  108. Public Declare Function GdipCreateFromHDC Lib "gdiplus.dll" (ByVal hDC As Long, GpGraphics As Long) As Long
  109. Public Declare Function GdipSetInterpolationMode Lib "gdiplus.dll" (ByVal Graphics As Long, ByVal InterMode As Long) As Long
  110. Public Declare Function GdipDrawImageRectI Lib "gdiplus.dll" (ByVal Graphics As Long, ByVal Img As Long, ByVal x As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long) As Long
  111. Public Declare Function GdipDeleteGraphics Lib "gdiplus.dll" (ByVal Graphics As Long) As Long
  112. Public Declare Function GdipDisposeImage Lib "gdiplus.dll" (ByVal Image As Long) As Long
  113. Public Declare Function GdipCreateBitmapFromHBITMAP Lib "gdiplus.dll" (ByVal hBmp As Long, ByVal hPal As Long, GpBitmap As Long) As Long
  114. Public Declare Function GdipGetImageWidth Lib "gdiplus.dll" (ByVal Image As Long, Width As Long) As Long
  115. Public Declare Function GdipGetImageHeight Lib "gdiplus.dll" (ByVal Image As Long, Height As Long) As Long
  116. Public Declare Function GdipCreateMetafileFromWmf Lib "gdiplus.dll" (ByVal hWmf As Long, ByVal deleteWmf As Long, WmfHeader As wmfPlaceableFileHeader, Metafile As Long) As Long
  117. Public Declare Function GdipCreateMetafileFromEmf Lib "gdiplus.dll" (ByVal hEmf As Long, ByVal deleteEmf As Long, Metafile As Long) As Long
  118. Public Declare Function GdipCreateBitmapFromHICON Lib "gdiplus.dll" (ByVal hIcon As Long, GpBitmap As Long) As Long
  119. Public Declare Function GdipDrawImageRectRectI Lib "gdiplus.dll" (ByVal Graphics As Long, ByVal GpImage As Long, ByVal dstx As Long, ByVal dsty As Long, ByVal dstwidth As Long, ByVal dstheight As Long, ByVal srcx As Long, ByVal srcy As Long, ByVal srcwidth As Long, ByVal srcheight As Long, ByVal srcUnit As Long, ByVal imageAttributes As Long, ByVal callback As Long, ByVal callbackData As Long) As Long
  120. Public Declare Sub GdiplusShutdown Lib "gdiplus.dll" (ByVal Token As Long)
  121. Public Declare Function SaveDC Lib "gdi32" (ByVal hDC As Long) As Long
  122. Public Declare Function CreateDIBSection Lib "gdi32" (ByVal hDC As Long, pBitmapInfo As BITMAPINFO, ByVal un As Long, ByVal lplpVoid As Long, ByVal handle As Long, ByVal dw As Long) As Long
  123. Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
  124. Public Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
  125. Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  126.  
  127. Public Const PLANES = 14
  128. Public Const BITSPIXEL = 12
  129. Public Const PATCOPY = &HF00021
  130. Public Const PICTYPE_BITMAP = 1
  131. Public Const InterpolationModeHighQualityBicubic = 7
  132. Public Const GDIP_WMF_PLACEABLEKEY = &H9AC6CDD7
  133. Public Const UnitPixel = 2
  134.  
  135. ' Theme text with glow effect #######################################
  136. '#########################################################
  137.  
  138. Public Const DTT_COMPOSITED    As Long = &H2000
  139. Public Const DTT_GLOWSIZE      As Long = &H800
  140. Public Const DTT_TEXTCOLOR As Long = 1
  141.  
  142.  
  143. Public Const DT_SINGLELINE     As Long = &H20
  144. Public Const DT_CENTER         As Long = &H1
  145. Public Const DT_VCENTER        As Long = &H4
  146. Public Const DT_NOPREFIX       As Long = &H800
  147. Public Const DT_TEXTFORMAT     As Long = DT_SINGLELINE Or DT_VCENTER Or DT_NOPREFIX
  148. Public Const SRCCOPY           As Long = &HCC0020
  149.  
  150. Public Type BITMAPINFOHEADER
  151.     biSize                  As Long
  152.     biWidth                 As Long
  153.     biHeight                As Long
  154.     biPlanes                As Integer
  155.     biBitCount              As Integer
  156.     biCompression           As Long
  157.     biSizeImage             As Long
  158.     biXPelsPerMeter         As Long
  159.     biYPelsPerMeter         As Long
  160.     biClrUsed               As Long
  161.     biClrImportant          As Long
  162. End Type
  163.  
  164. Public Type RGBQUAD
  165.     rgbBlue                 As Byte
  166.     rgbGreen                As Byte
  167.     rgbRed                  As Byte
  168.     rgbReserved             As Byte
  169. End Type
  170.  
  171. Public Type BITMAPINFO
  172.     bmiHeader               As BITMAPINFOHEADER
  173.     bmiColors               As RGBQUAD
  174. End Type
  175.  
  176. Public Type POINTAPI
  177.     x                       As Long
  178.     Y                       As Long
  179. End Type
  180.  
  181. Public Type DTTOPTS
  182.     dwSize                  As Long
  183.     dwFlags                 As Long
  184.     crText                  As Long
  185.     crBorder                As Long
  186.     crShadow                As Long
  187.     iTextShadowType         As Long
  188.     ptShadowOffset          As POINTAPI
  189.     iBorderSize             As Long
  190.     iFontPropId             As Long
  191.     iColorPropId            As Long
  192.     iStateId                As Long
  193.     fApplyOverlay           As Long
  194.     iGlowSize               As Long
  195.     pfnDrawTextCallback     As Long
  196.     LParam                  As Long
  197. End Type
  198.  
  199. Public Declare Function OpenThemeData Lib "UxTheme" (ByVal hWnd As Long, ByVal szClases As Long) As Long
  200. Public Declare Function CloseThemeData Lib "UxTheme" (ByVal hTheme As Long) As Long
  201. Public Declare Function DrawThemeTextEx Lib "UxTheme" (ByVal hTheme As Long, ByVal hDC As Long, ByVal iPartId As Long, ByVal iStateId As Long, ByVal text As Long, ByVal iCharCount As Long, ByVal dwFlags As Long, pRect As RECT, pOptions As DTTOPTS) As Long
  202.  
  203. ' Font functions ################################################
  204. '##########################################################
  205.  
  206. Public Const LF_FACESIZE = 32
  207. Public Type LOGFONT
  208.    lfHeight As Long
  209.    lfWidth As Long
  210.    lfEscapement As Long
  211.    lfOrientation As Long
  212.    lfWeight As Long
  213.    lfItalic As Byte
  214.    lfUnderline As Byte
  215.    lfStrikeOut As Byte
  216.    lfCharSet As Byte
  217.    lfOutPrecision As Byte
  218.    lfClipPrecision As Byte
  219.    lfQuality As Byte
  220.    lfPitchAndFamily As Byte
  221.    lfFaceName(LF_FACESIZE) As Byte
  222. End Type
  223. Public Const FW_NORMAL = 400
  224. Public Const FW_BOLD = 700
  225. Public Const FF_DONTCARE = 0
  226. Public Const DEFAULT_QUALITY = 0
  227. Public Const DEFAULT_PITCH = 0
  228. Public Const DEFAULT_CHARSET = 1
  229. Public Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" ( _
  230.    lpLogFont As LOGFONT) As Long
  231. Public Declare Function MulDiv Lib "kernel32" ( _
  232.    ByVal nNumber As Long, ByVal nNumerator As Long, ByVal nDenominator As Long) As Long
  233.  
  234. Public Const LOGPIXELSY = 90
  235.  
  236. Public Declare Function DrawText Lib "user32" Alias "DrawTextA" ( _
  237.    ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, _
  238.    lpRect As RECT, ByVal wFormat As Long) As Long
  239. Public Const DT_CALCRECT = &H400
  240.  
  241. Public Declare Function OffsetRect Lib "user32" ( _
  242.    lpRect As RECT, ByVal x As Long, ByVal Y As Long) As Long
  243.  
  244. ' Alpha Blending ##############################################
  245. '#########################################################
  246.  
  247. Public Declare Function AlphaBlend Lib "Msimg32.dll" (ByVal hDC As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hDC As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long
  248. Public Declare Sub RtlMoveMemory Lib "Kernel32.dll" (Destination As Any, Source As Any, ByVal Length As Long)
  249.  
  250. Public Type AlphaOptions
  251.         AlphaOption As Byte
  252.         AlphaFlags As Byte
  253.         SourceConstantAlpha As Byte
  254.         AlphaFormat As Byte
  255. End Type
  256.  
  257. Public Const AC_Src_Over As Long = &H0&
  258. Public Const AC_Src_Alpha As Long = &H1&
  259.  
  260. ' SubClasing #################################################
  261. '##########################################################
  262.  
  263. Public Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hWnd As Long, ByVal lpString As String) As Long
  264. Public Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hWnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
  265. Public Declare Function RemoveProp Lib "user32" Alias "RemovePropA" (ByVal hWnd As Long, ByVal lpString As String) As Long
  266.  
  267. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  268. Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  269. Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal WParam As Long, ByVal LParam As Long) As Long
  270. Public Declare Function TRACKMOUSEEVENT Lib "comctl32.dll" Alias "_TrackMouseEvent" (lpEventTrack As TRACKMOUSEEVENT) As Long
  271.  
  272. Public Const SWP_FrameChanged = 24
  273.  
  274. Public Const GWL_WNDPROC = (-4)
  275. Public Const GWL_USERDATA = (-21)
  276.  
  277. Public Const WM_NULL = &H0
  278. Public Const WM_CREATE = &H1
  279. Public Const WM_DESTROY = &H2
  280. Public Const WM_MOVE = &H3
  281. Public Const WM_SIZE = &H5
  282. Public Const WM_ACTIVATE = &H6
  283. Public Const WM_SETFOCUS = &H7
  284. Public Const WM_KILLFOCUS = &H8
  285. Public Const WM_ENABLE = &HA
  286. Public Const WM_SETREDRAW = &HB
  287. Public Const WM_SETTEXT = &HC
  288. Public Const WM_GETTEXT = &HD
  289. Public Const WM_GETTEXTLENGTH = &HE
  290. Public Const WM_PAINT = &HF
  291. Public Const WM_CLOSE = &H10
  292. Public Const WM_QUERYENDSESSION = &H11
  293. Public Const WM_QUIT = &H12
  294. Public Const WM_QUERYOPEN = &H13
  295. Public Const WM_ERASEBKGND = &H14
  296. Public Const WM_SYSCOLORCHANGE = &H15
  297. Public Const WM_ENDSESSION = &H16
  298. Public Const WM_SHOWWINDOW = &H18
  299. Public Const WM_CTLCOLOR = &H19
  300. Public Const WM_WININICHANGE = &H1A
  301. Public Const WM_SETTINGCHANGE = &H1A
  302. Public Const WM_DEVMODECHANGE = &H1B
  303. Public Const WM_ACTIVATEAPP = &H1C
  304. Public Const WM_FONTCHANGE = &H1D
  305. Public Const WM_TIMECHANGE = &H1E
  306. Public Const WM_CANCELMODE = &H1F
  307. Public Const WM_SETCURSOR = &H20
  308. Public Const WM_MOUSEACTIVATE = &H21
  309. Public Const WM_CHILDACTIVATE = &H22
  310. Public Const WM_QUEUESYNC = &H23
  311. Public Const WM_GETMINMAXINFO = &H24
  312. Public Const WM_PAINTICON = &H26
  313. Public Const WM_ICONERASEBKGND = &H27
  314. Public Const WM_NEXTDLGCTL = &H28
  315. Public Const WM_SPOOLERSTATUS = &H2A
  316. Public Const WM_DRAWITEM = &H2B
  317. Public Const WM_MEASUREITEM = &H2C
  318. Public Const WM_DELETEITEM = &H2D
  319. Public Const WM_VKEYTOITEM = &H2E
  320. Public Const WM_CHARTOITEM = &H2F
  321. Public Const WM_SETFONT = &H30
  322. Public Const WM_GETFONT = &H31
  323. Public Const WM_SETHOTKEY = &H32
  324. Public Const WM_GETHOTKEY = &H33
  325. Public Const WM_QUERYDRAGICON = &H37
  326. Public Const WM_COMPAREITEM = &H39
  327. Public Const WM_GETOBJECT = &H3D
  328. Public Const WM_COMPACTING = &H41
  329. Public Const WM_COMMNOTIFY = &H44
  330. Public Const WM_WINDOWPOSCHANGING = &H46
  331. Public Const WM_WINDOWPOSCHANGED = &H47
  332. Public Const WM_POWER = &H48
  333. Public Const WM_COPYDATA = &H4A
  334. Public Const WM_CANCELJOURNAL = &H4B
  335. Public Const WM_NOTIFY = &H4E
  336. Public Const WM_INPUTLANGCHANGEREQUEST = &H50
  337. Public Const WM_INPUTLANGCHANGE = &H51
  338. Public Const WM_TCARD = &H52
  339. Public Const WM_HELP = &H53
  340. Public Const WM_USERCHANGED = &H54
  341. Public Const WM_NOTIFYFORMAT = &H55
  342. Public Const WM_CONTEXTMENU = &H7B
  343. Public Const WM_STYLECHANGING = &H7C
  344. Public Const WM_STYLECHANGED = &H7D
  345. Public Const WM_DISPLAYCHANGE = &H7E
  346. Public Const WM_GETICON = &H7F
  347. Public Const WM_SETICON = &H80
  348. Public Const WM_NCCREATE = &H81
  349. Public Const WM_NCDESTROY = &H82
  350. Public Const WM_NCCALCSIZE = &H83
  351. Public Const WM_NCHITTEST = &H84
  352. Public Const WM_NCPAINT = &H85
  353. Public Const WM_NCACTIVATE = &H86
  354. Public Const WM_GETDLGCODE = &H87
  355. Public Const WM_SYNCPAINT = &H88
  356. Public Const WM_NCMOUSEMOVE = &HA0
  357. Public Const WM_NCLBUTTONDOWN = &HA1
  358. Public Const WM_NCLBUTTONUP = &HA2
  359. Public Const WM_NCLBUTTONDBLCLK = &HA3
  360. Public Const WM_NCRBUTTONDOWN = &HA4
  361. Public Const WM_NCRBUTTONUP = &HA5
  362. Public Const WM_NCRBUTTONDBLCLK = &HA6
  363. Public Const WM_NCMBUTTONDOWN = &HA7
  364. Public Const WM_NCMBUTTONUP = &HA8
  365. Public Const WM_NCMBUTTONDBLCLK = &HA9
  366. Public Const WM_KEYDOWN = &H100
  367. Public Const WM_KEYUP = &H101
  368. Public Const WM_CHAR = &H102
  369. Public Const WM_DEADCHAR = &H103
  370. Public Const WM_SYSKEYDOWN = &H104
  371. Public Const WM_SYSKEYUP = &H105
  372. Public Const WM_SYSCHAR = &H106
  373. Public Const WM_SYSDEADCHAR = &H107
  374. Public Const WM_KEYLAST = &H108
  375. Public Const WM_IME_STARTCOMPOSITION = &H10D
  376. Public Const WM_IME_ENDCOMPOSITION = &H10E
  377. Public Const WM_IME_COMPOSITION = &H10F
  378. Public Const WM_IME_KEYLAST = &H10F
  379. Public Const WM_INITDIALOG = &H110
  380. Public Const WM_COMMAND = &H111
  381. Public Const WM_SYSCOMMAND = &H112
  382. Public Const WM_TIMER = &H113
  383. Public Const WM_HSCROLL = &H114
  384. Public Const WM_VSCROLL = &H115
  385. Public Const WM_INITMENU = &H116
  386. Public Const WM_INITMENUPOPUP = &H117
  387. Public Const WM_MENUSELECT = &H11F
  388. Public Const WM_MENUCHAR = &H120
  389. Public Const WM_ENTERIDLE = &H121
  390. Public Const WM_MENURBUTTONUP = &H122
  391. Public Const WM_MENUDRAG = &H123
  392. Public Const WM_MENUGETOBJECT = &H124
  393. Public Const WM_UNINITMENUPOPUP = &H125
  394. Public Const WM_MENUCOMMAND = &H126
  395. Public Const WM_CTLCOLORMSGBOX = &H132
  396. Public Const WM_CTLCOLOREDIT = &H133
  397. Public Const WM_CTLCOLORLISTBOX = &H134
  398. Public Const WM_CTLCOLORBTN = &H135
  399. Public Const WM_CTLCOLORDLG = &H136
  400. Public Const WM_CTLCOLORSCROLLBAR = &H137
  401. Public Const WM_CTLCOLORSTATIC = &H138
  402. Public Const WM_MOUSEMOVE = &H200
  403. Public Const WM_LBUTTONDOWN = &H201
  404. Public Const WM_LBUTTONUP = &H202
  405. Public Const WM_LBUTTONDBLCLK = &H203
  406. Public Const WM_RBUTTONDOWN = &H204
  407. Public Const WM_RBUTTONUP = &H205
  408. Public Const WM_RBUTTONDBLCLK = &H206
  409. Public Const WM_MBUTTONDOWN = &H207
  410. Public Const WM_MBUTTONUP = &H208
  411. Public Const WM_MBUTTONDBLCLK = &H209
  412. Public Const WM_MOUSEWHEEL = &H20A
  413. Public Const WM_PARENTNOTIFY = &H210
  414. Public Const WM_ENTERMENULOOP = &H211
  415. Public Const WM_EXITMENULOOP = &H212
  416. Public Const WM_NEXTMENU = &H213
  417. Public Const WM_SIZING = &H214
  418. Public Const WM_CAPTURECHANGED = &H215
  419. Public Const WM_MOVING = &H216
  420. Public Const WM_DEVICECHANGE = &H219
  421. Public Const WM_MDICREATE = &H220
  422. Public Const WM_MDIDESTROY = &H221
  423. Public Const WM_MDIACTIVATE = &H222
  424. Public Const WM_MDIRESTORE = &H223
  425. Public Const WM_MDINEXT = &H224
  426. Public Const WM_MDIMAXIMIZE = &H225
  427. Public Const WM_MDITILE = &H226
  428. Public Const WM_MDICASCADE = &H227
  429. Public Const WM_MDIICONARRANGE = &H228
  430. Public Const WM_MDIGETACTIVE = &H229
  431. Public Const WM_MDISETMENU = &H230
  432. Public Const WM_ENTERSIZEMOVE = &H231
  433. Public Const WM_EXITSIZEMOVE = &H232
  434. Public Const WM_DROPFILES = &H233
  435. Public Const WM_MDIREFRESHMENU = &H234
  436. Public Const WM_IME_SETCONTEXT = &H281
  437. Public Const WM_IME_NOTIFY = &H282
  438. Public Const WM_IME_CONTROL = &H283
  439. Public Const WM_IME_COMPOSITIONFULL = &H284
  440. Public Const WM_IME_SELECT = &H285
  441. Public Const WM_IME_CHAR = &H286
  442. Public Const WM_IME_REQUEST = &H288
  443. Public Const WM_IME_KEYDOWN = &H290
  444. Public Const WM_IME_KEYUP = &H291
  445. Public Const WM_MOUSEHOVER = &H2A1
  446. Public Const WM_MOUSELEAVE = &H2A3
  447. Public Const WM_CUT = &H300
  448. Public Const WM_COPY = &H301
  449. Public Const WM_PASTE = &H302
  450. Public Const WM_CLEAR = &H303
  451. Public Const WM_UNDO = &H304
  452. Public Const WM_RENDERFORMAT = &H305
  453. Public Const WM_RENDERALLFORMATS = &H306
  454. Public Const WM_DESTROYCLIPBOARD = &H307
  455. Public Const WM_DRAWCLIPBOARD = &H308
  456. Public Const WM_PAINTCLIPBOARD = &H309
  457. Public Const WM_VSCROLLCLIPBOARD = &H30A
  458. Public Const WM_SIZECLIPBOARD = &H30B
  459. Public Const WM_ASKCBFORMATNAME = &H30C
  460. Public Const WM_CHANGECBCHAIN = &H30D
  461. Public Const WM_HSCROLLCLIPBOARD = &H30E
  462. Public Const WM_QUERYNEWPALETTE = &H30F
  463. Public Const WM_PALETTEISCHANGING = &H310
  464. Public Const WM_PALETTECHANGED = &H311
  465. Public Const WM_HOTKEY = &H312
  466. Public Const WM_PRINT = &H317
  467. Public Const WM_PRINTCLIENT = &H318
  468. Public Const WM_HANDHELDFIRST = &H358
  469. Public Const WM_HANDHELDLAST = &H35F
  470. Public Const WM_AFXFIRST = &H360
  471. Public Const WM_AFXLAST = &H37F
  472. Public Const WM_PENWINFIRST = &H380
  473. Public Const WM_PENWINLAST = &H38F
  474. Public Const WM_APP = &H8000
  475. Public Const WM_USER = &H400
  476. Public Const WM_REFLECT = WM_USER + &H1C00
  477.  
  478. Public Type TRACKMOUSEEVENT
  479.     cbSize As Long
  480.     dwFlags As Long
  481.     hwndTrack As TrackMouseEventFlags
  482.     dwHoverTime As Long
  483. End Type
  484.  
  485. Public Enum TrackMouseEventFlags
  486.     TME_HOVER = 1&
  487.     TME_LEAVE = 2&
  488.     TME_NONCLIENT = &H10&
  489.     TME_QUERY = &H40000000
  490.     TME_CANCEL = &H80000000
  491. End Enum
  492.  
  493. Public Function GetARGBVal(ByVal LnColor As Long, ByRef ARGBStruct As FA_Type_ARGB) As Long
  494.  
  495. ARGBStruct.Red = LnColor And &HFF&
  496. ARGBStruct.Green = (LnColor And &HFF00&) \ &H100&
  497. ARGBStruct.Blue = (LnColor And &HFF0000) \ &H10000
  498.  
  499. End Function
  500.  
  501.